Know Your Baseball - The Greatest Player Resource/Know Your Baseball - Greatest Player.iso/Baseball/Director/SHARED.CST/00005_Script_Media Controls

Text File | 1998-09-21 | 3KB | 134 lines

global gClipOut,gClipIn,gAVI,gClicked,gControls,gBt,gStopFlag,gAVI1
-- fades volume of puppetsound

on soundFade
  set x = the soundlevel
  repeat while x > 1
    set the soundlevel =  the soundlevel -1
    startTimer
    set wait = the timer+10
    repeat while the timer < wait
    end repeat
    set x = the soundlevel
  end repeat
end


on loadvideo flag
  puppetsprite 3 ,true
  set the type of sprite 3 = 16
  MVideoSegment(gControls) flag
  if the result = 0 then
    MVideoSegment(gControls) 23
  end if

  set the castnum of sprite 3 =the number of cast( the result)
  set the loch of sprite 3 = 155
  set the locv of sprite 3 = 150
  updatestage
  set the movietime of sprite 3 = gClipIn
  set the movierate of sprite 3 = 1
end



-- called from exit frame at the marker where the movie is playing

on VideoPlayer
  if the type of sprite 3 = 0 then exit
  -- put the movietime of sprite 3
  if the movieTime of sprite 3 >= gClipOut then
    set the movierate of sprite 3 = 0
    set the blend of sprite 8 = 100
  end if
  Controlloop
  if  gStopFlag = 1 then
    set the movierate of sprite 3 = 0
    set the blend of sprite 8 = 100
    exit
  end if

end


-- for SSQ moives with AVI at marker 1

on playAVI
  global junk
  if the type of sprite  3 < 16 then
    set gAVI = 32
    set gAVI1 =30
    puppetsprite 3, true
    set the type of sprite 3 = 16
    mVideoSegment (gControls),32,0
    set the castnum of sprite 3 = the number of cast  the result
    set the locV of sprite 3 = 159
    set the loch of sprite 3 = 488
    updatestage
    set the stoptime of sprite 3 = ( the duration of cast the result) -15
    set the movierate of sprite 3 = 1
  else
    StopAVI
  end if
end

on playAVI1
  if the type of sprite  3 < 16 then
    set gAVI = 32
    set gAVI1 = 30
    puppetsprite 3, true
    set the type of sprite 3 = 16
    mVideoSegment (gControls),32,1
    set the castnum of sprite 3 = the number of cast  the result
    set the locV of sprite 3 = 156
    set the loch of sprite 3 = 488
    updatestage
    set the movierate of sprite 3 = 1
  else
    StopAVI
  end if
end

-- specifc to intro screen of all SSQ movies
-- specific to SSQ movies

on StopAVI
  if the type of sprite 3 = 16 then set the movierate of sprite 3 = 0
  set the castnum of sprite 3 = 0
  set the type of sprite 3  = 0
  puppetsprite 3, false
  set gAVI = 1
  set gAVI1 = 1
  updatestage
end

-- specific to SSQ movies

on AVIcleanup what

  if the frameLabel <> "1Video"  then puppetsound 0

  If the framelabel = "1Video" and gClicked = 11 then exit

  if rollover(32) = 0 and gAVI = 32 then
    stopAVI
    exit
  end if

  if gAVI = 2 and gclicked <> 11 then
    --- set gClipOut = 0 -- stop the AVI playback
    set the movierate of sprite 3 = 0
    set gAVI = EMPTY
    exit
  end IF



  if what = " " or voidp(what) and the type of sprite 3 = 16 then
    puppetsound 0
    set the movierate of sprite 3 = 0
    set the blend of sprite 8 = 100
    exit
  end if

end